﻿<!--#include file="const.inc"-->

<%	dim rs,sql,i
select case v
case "0"
we0="<br/>"
%>
<card title="<%=qingtian.mainname%>"><p align="<%=qingtian.px%>">
<%
case "1"
hr="<hr>"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title><%=qingtian.mainname%></title>
</head>
<body>
<%

End Select

%>
<%
		if qingtian.Logo<>"" then
		%><%=we%><img src="<%=qingtian.Logo%>" alt='logo' noselect='true'/><%=we0%><%
		end if


		if sid="Null" then
		else
		qingtian.info
		end if

			Set Rs = Server.CreateObject("Adodb.Recordset")



			Sql = "select [id],[name],[ext],[urls],[img],[br],[content],[yinz],[vipgm] from qingtian_class where [fleg]=0 order by [pid] asc"
			Rs.Open Sql,conn,1,1
			if not (rs.bof and rs.eof)  then
			For i=1 to rs.RecordCount
                        if rs("yinz")=0 then
			select case rs("ext")
				case 0
                                if rs("vipgm")=0 then
					%><a href="/tian.asp?id=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
                                else
					%><a href="/html/main<%=rs("id")%>.asp?sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
                                end if
					if rs("br")=1 then
%><br/>
<%
end if
				case 1
					%><%=qingtian.utf8(rs("name"))%><%
					if rs("br")=1 then
						%><br/>
<%

			end if
				case 2
					%><a href="<%=qingtian.utf8(rs("urls"))%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
						%><br/><%


					end if
				case 3
				if rs("content")="[end]" then
				qingtian.tuichu
				end if
					%>

<!--#include virtual="/inc/cssdate.inc"-->

<%=cp.ubbshow(qingtian.wml(content))%><%
					if rs("br")=1 then
						%><br/><%

			end if
				case 4
					if len(rs("urls"))>0 then
					%><a href="<%=qingtian.utf8(rs("urls"))%>"><img src="<%=qingtian.utf8(rs("img"))%>" alt=''/></a><%
					else
					%><img src="<%=qingtian.utf8(rs("img"))%>" alt=''/><%
					end if
					if rs("br")=1 then
						%><br/><%

			end if
				case 5
					%><a href="/view.asp?id=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
						%><br/><%

			end if
				case 6
					%><a href="/fileli.asp?listid=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
						%><br/><%

			end if
				case 7
                                if rs("vipgm")=0 then
					%><a href="/viewli.asp?listid=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
                                else
					%><a href="/html/main<%=rs("id")%>.asp?sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
                                end if
					if rs("br")=1 then
						%><br/><%

			end if

				case 8
					%><a href="/photoli.asp?listid=<%=rs("id")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a><%
					if rs("br")=1 then
						%><br/><%

					end if

			end select
					end if
			Rs.MoveNext
			next
			end if
			Rs.close
			
		set rs=nothing

		%><%=we%><%=qingtian.Copyright%><%=we0%><%
qingtian.tuichu
end Function
%>
